COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.RETAIN
C00004 ENDMK
C⊗;
.RETAIN

.SSNAME ← "INDEX"; SECNAME ← SSNUMBER ← NULL
.	BEGIN FILL NOJUST INDENT 0,3 PREFACE 0 TURN ON "←→∞\"
.	AREA TEXTER LINES 4 TO HLINES-2 IN 2 COLUMNS 3 APART
.	PORTION INDEX
.	IF EVEN PAGE THEN NEXT PAGE;
.	PLACE TEXTER
.indexr
.<<	SELECT 1;>>
.<<	SECNAME ← "INDEX";>>
.send contents ⊂skip 2;
%2{secname}→{page!}%*{skip;⊃
.	WASWORD ← WASPG ← NULL ;
.	AT "<" PGNO "≤" PHRASE "≥" ⊂
.		IF "PHRASE" ≠ WASWORD THEN START BREAK }PHRASE   PGNO{ END
.		ELSE IF "PGNO" ≠ WASPG THEN }, PGNO{ ;
.		WASPG ← "PGNO" ; WASWORD ← "PHRASE" ; ⊃
.	RECEIVE "≤≥"
.	END

.count page printing "i";
.portion prefASS
.comment ******
.REQUIRE "NOTES.PRE" SOURCE_FILE
.*****;
.SECNAME ← SSNAME ← "CONTENTS"
.SSNUMBER ← NULL
.<<count  page  printing "i";>>
.PORTION CONTENTS
.FILL NOJUST CRBREAK TURN ON "←","→","∂","\","∞";
.PLACE TExT
.INDENT 0,30,10 PREFACE 0 TABS 21,24,27,30,33,36,39,42,45,48,51,54,57,60,63;
.<<SELECT 2>>
.<<←T#A#B#L#E###O#F###C#O#N#T#E#N#T#S>>
.<<SKIP 3>>
.group skip 7; <<group>>
%aContents%1  
.skip 12; <<new>>
.fill nojust crbreak TURN ON "←","→","∂","\","∞";
%2PREFACE→i%*
.<<SKIP;>>
.<<%2CHAPTER→PAGE%1>>
.SKIP;
.SELECT 1
.RECEIVE